home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / B-Book Series / (k)b6.d64 / easter.l < prev    next >
Text File  |  2007-02-28  |  513b  |  20 lines
  1. 9000 PROC EASTER(YEAR,REF MONTH,REF DAY) CLOSED
  2. 9010 DOY:=PASCHAL'MOON(YEAR)
  3. 9020 DATE(DOY,YEAR,MONTH,DAY)
  4. 9030 DOY:+7-DAY'OF'WEEK(MONTH,DAY,YEAR)
  5. 9040 DATE(DOY,YEAR,MONTH,DAY)
  6. 9050 ENDPROC EASTER
  7. 9060 //
  8. 9070 FUNC PASCHAL'MOON(YEAR) CLOSED
  9. 9080 DIM PM(0:18)
  10. 9090 RESTORE 
  11. 9100 FOR I:=0 TO 18 DO
  12. 9110 READ PM(I)
  13. 9120 ENDFOR I
  14. 9130 FULL'MOON'DATA:
  15. 9140 DATA 105,94,83,102,91,109,99,88
  16. 9150 DATA 107,95,85,104,93,82,101,90
  17. 9160 DATA 108,98,87
  18. 9170 RETURN (PM(YEAR MOD 19)+LEAP'YEAR(YEAR))
  19. 9180 ENDFUNC PASCHAL'MOON
  20.